#!/usr/bin/perl -w

$id = "$ARGV[0]";     # Service label id
$value = "ErrorCode626";   # initializing value

open($file, "<", "ServiceComment.txt") or die(exit(4));

while ($line = <$file>) {   # checks all lines in file

        if($line =~ /^\s*$id\s*=\s*
                    \"(.+)\"
                    \s*(\#.*)?$/x) 
	{
			if($1) { $value = $1; }
	}
}

print $value."\n";

close $file;

exit(5);
